/* $Revision: Eb2 sp3 $    BY: Quan Tao      DATE: 11/28/08  ECO: *hk-s-xxxx  * */
    
 IF CONNECTED("myqaddb")  THEN DO:
    DISCONNECT myqaddb . 
 END.
